1 PRINT"[147]BIORHYTHM
4 [143] VERSION 1.0 #G1009
5 [153]"FOR":[151]53280,7:[151]53281,7
10 [143] BIORHYTHM 2.5
20 [153]"LOAD";[163]11);"BIORHYTHM 1.0WAIT":[153]"DO YOU WANT INSTRUCTIONS (Y/N)?";
30 PI[178][171]2[172][255]:R[178]7:D$[178]""
40 R$[178]"CMD":T$[178]"OR":U$[178]"/":Q$[178]"-":G$[178]"-"
90 [134]M%(13),M$(12)
100 [129]I[178]1[164]13:[135]M%(I):[130]
110 [129]I[178]1[164]12:[135]M$(I):[130]
120 [129]I[178]1[164]23:D$[178]D$[170]"":[130]
130 [129]I[178]1[164]39:E$[178]E$[170]" ":R$[178]R$[170]"":[130]
135 [129]I[178]1[164]39:E$[178]E$[170]"CMD":[130]
140 [129]I[178]1[164]37
150 T$[178]T$[170]"=":U$[178]U$[170]">":G$[178]G$[170]"(null)"
160 [130]
165 T$[178]T$[170]"^":U$[178]U$[170]"EXP":G$[178]G$[170]"<"
170 [129]I[178]1[164]18:Q$[178]Q$[170]" (null)":[130]:Q$[178]Q$[170]" <"
176 [161]WW$:[139][200](WW$,1)[178]"Y"[167]10000
178 [139][200](WW$,1)[179][177]"N"[167]176
200 [153]"LOADPRESS RETURN AFTER EACH REPLY!":[153]
202 [153]"INPUT NAME PLEASE? ";:[141] 63000
250 WW$[178][200](WW$,18):N$[178]WW$
260 [139]N$[178]""[167]N$[178]"ANONYMOUS"
290 [153]:[153]" PLEASE ENTER DATES AS 8 DIGIT NUMBERS "
291 [153]"IN THE FORMAT OF DDMMYY                "
292 [153]" E.G. AUGUST 1, 1945 WOULD BE 01081945 ":[153]:[153]
300 [153]"                                        "
302 [153]"  BIRTHDATE? ";:[141]63000
304 [139][195](WW$)[179][177]8[176][197](WW$)[179][178]0[167]300
306 [139] ([197]([200](WW$,2))[177]31)[176]([197]([202](WW$,3,2))[177]12)[167]300
308 [139] ([197]([200](WW$,2))[179][178]0)[176]([197]([202](WW$,3,2))[179][178]0)[167]300
310 DB[178][197]([200](WW$,2)):MB[178][197]([202](WW$,3,2)):YB[178][197]([201](WW$,4))
320 MB[178][181](MB):DB[178][181](DB):YB[178][181](YB)
350 TB[178][181](DB[170]365.25[172]YB[170]M%(MB)[170].01[172]MB[171].03)
400 [153]"                                        "
402 [153]"  START DATE? ";:[141]63000
404 [139][195](WW$)[179][177]8[176][197](WW$)[179][178]0[167]400
406 [139] ([197]([200](WW$,2))[177]31)[176]([197]([202](WW$,3,2))[177]12)[167]400
408 [139] ([197]([200](WW$,2))[179][178]0)[176]([197]([202](WW$,3,2))[179][178]0)[167]400
410 D[178][197]([200](WW$,2)):MS[178][197]([202](WW$,3,2)):YS[178][197]([201](WW$,4))
420 MS[178][181](MS):D[178][181](DS):YS[178][181](YS)
450 TS[178][181](DS[170]365.25[172]YS[170]M%(MS)[170].01[172]MS[171].03)
500 TT[178]TS[171]TB
510 PS[178]23[172](TT[173]23[171][181](TT[173]23))
520 ES[178]28[172](TT[173]28[171][181](TT[173]28))
530 IS[178]33[172](TT[173]33[171][181](TT[173]33))
900 [141]8000
1000 [129]K[178]0[164]38
1010 P[178]R[170]R[172][191]((PS[170]K)[172]PI[173]23)[170].5
1020 [153][200](D$,P[170]5);[200](R$,K[170]2);"CLRATNSTOP"
1030 [130]
2000 [129]K[178]0[164]38
2010 E[178]R[170]R[172][191]((ES[170]K)[172]PI[173]28)[170].5
2020 [153][200](D$,E[170]5);[200](R$,K[170]2);"(null)STOP"
2030 [130]
3000 [129]K[178]0[164]38
3010 I[178]R[170]R[172][191]((IS[170]K)[172]PI[173]33)[170].5
3020 [153][200](D$,I[170]5);[200](R$,K[170]2);"*FOR"
3030 [130]
3040 [153]"'SPACE'-CON:'!'-EXIT:'N'-ANOTHER:P-PRINT"
5000 [161]A$:[139]A$[178]""[167]5000
5010 [129]I[178]1[164]150:[161]AA$:[130]
5015 [139] A$[178]"!" [167] 63998
5020 [139]A$[178]"N"[167]200
5025 [139]A$[178]"P"[167]9000
5050 MS[178]MD:D[178]DD:YS[178]YD
5080 [137]450
8000 [153]"LOAD"[163]10)" B I O R H Y T H M WAIT"
8010 [153]"FOR  ";N$"WAIT BORN "M$(MB);DB;[201]([196](YB),4)
8100 [153]T$
8110 [129]I[178]1[164]R:[153]Q$:[130]:[153]G$
8120 [129]I[178]1[164]R:[153]Q$:[130]:[153]U$
8180 MD[178]MS:DD[178]DS:YD[178]YS
8190 Y[178]0:[129]I[178]0[164]38
8195 Y[178]Y[170]1
8200 [139]I[173]2[179][177][181](I[173]2)[167][153]"";:[137]8250
8205 A$[178][201]([196](DD),2)
8210 [139]DD[179]10[167][153]""[201](A$,1)"ON";:[137]8220
8215 [153][200](A$,1)"CMD"[201](A$,1)"ON";
8220 [139]DD[177]1[167]8250
8230 [139]Y[179][178]32[167][153]"CMD"M$(MD)YD"CMDCMDCMDCMDCMDCMDCMDCMDWAIT";
8250 DD[178]DD[170]1
8255 [139]DD[179][178](M%(MD[170]1)[171]M%(MD))[167]8290
8265 [139]MD[179][177]2[167]8280
8270 [139]YD[173]4[179][177][181](YD[173]4)[167]8280
8275 [139]DD[179]30[167]8290
8280 DD[178]1:MD[178]MD[170]1:[139]MD[177]12[167]MD[178]1:YD[178]YD[170]1
8290 [130]
8500 [153]:[153]"PHYSICAL= CLRATNFORWAIT EMOTIONAL=(null)FORWAIT INTERLECTUAL*FOR"
8600 C$[178]"UP    CRIT    DWN"
8610 [153]"CMD";
8620 [129]I[178]1[164][195](C$)
8630 [153][202](C$,I,1)"CMD";
8640 [130]
8800 [142]
9000 [143]  **  PRINTER  **
9005 [159]3,4:[157]3
9007 [153][163]20)
9010 [129]N[178]1024[164]2023
9020 V[178]([194](N))
9022 [139]V[178]93[167]V[178]98
9024 [139]V[178]91[167]V[178]98
9026 [139]V[178]107[167]V[178]171
9028 [139]V[178]115[167]V[178]179
9030 [139]V[178]114[167]V[178]178
9032 [139]V[178]113[167]V[178]177
9038 [139]V[179]26[167]V[178]V[170]64
9040 [139]G[177]39[167]G[178]0:[153][199](145):[153][163]20)
9050 G[178]G[170]1
9060 [153][199](V);
9070 [130]N
9080 [152]3:[160]3:[137]5000
10000 [153]"LOAD"
10010 [153]"   BIORHYTHMWAIT DISPLAYS A PHYSICAL,"
10020 [153]"EMOTIONAL, AND INTELLECTUAL PATTERN"
10030 [153]"THAT INDICATES YOUR UP AND DOWN DAYS"
10040 [153]"FOR ANY PERIOD OF TIME, IN BLOCKS OF"
10050 [153]"39 DAYS.  BIORHYTHMWAIT ATTEMPTS TO PREDICT"
10060 [153]"GOOD OR BAD DAYS IN THE FUTURE, AND"
10070 [153]"TO TELL GOOD AND BAD DAYS IN THE PAST."
10080 [153]"   THESE PREDICTIONS ARE BASED ON"
10090 [153]"VARIOUS STUDIES TO DETERMINE WHY"
10100 [153]"ACCIDENTS OCCUR.  SOME PEOPLE BELIEVE"
10110 [153]"THAT PHYSICAL ATTRIBUTES FOLLOW FIXED"
10120 [153]"PERIODS. THE PERIODS & SYMBOLS, AS THEY"
10130 [153]"APPEAR ON THE GRAPH, ARE SHOWN BELOW:"
10140 [153]"  ATN=PHYSICALWAIT LENLENLENLENLENLENLENLEN> 23WAIT DAYS"
10150 [153]"  (null)=EMOTIONALWAIT LENLENLENLENLENLENLEN> 28WAIT DAYS"
10160 [153]"  *=INTELLECTUALWAIT LENLENLENLEN> 33WAIT DAYS"
10170 [153]"";[163]5);"(PRESS ANY KEY TO CONTINUE)";
10180 [161] A$:[139] A$[178]"" [167] 10180
10185 [129]ZZ[178]1[164]150:[161]A$:[130]
10190 [153]"LOAD   THESE CYCLES ARE SINE WAVE CYCLES"
10200 [153]"BEGINNING AT BIRTH.  THE CRITICAL DAYS"
10210 [153]"PURPORTEDLY OCCUR DURING TRANSITIONS"
10220 [153]"BETWEEN 'UP' DAYS AND 'DOWN' DAYS."
10228 [153]"THE BIORHYTHM THEORY SUGGESTS"
10230 [153]"THAT DURING THE CRITICAL DAYS YOU"
10240 [153]"ARE MORE PRONE TO ERRORS, ACCIDENTS,"
10250 [153]"AND PHYSICAL SETBACKS."
10260 [153]"   'CRITICAL' DAYS ARE INDICATED WHEN"
10270 [153]"THE SINE WAVE PASSES THROUGH THE CENTER"
10271 [153]"AXIS MARKED 'CRIT'.  'UP' AND 'DOWN'"
10272 [153]"DAYS ARE MARKED 'UP' AND 'DWN' ON THE"
10273 [153]"RIGHT SIDE OF THE GRAPH."
10280 [153]"   WHEN THE APPROPRIATE PROMPT APPEARS,"
10290 [153]"TYPE IN YOUR NAME, BIRTHDAY, AND"
10300 [153]"DESIRED STARTING DATE, EACH FOLLOWED"
10310 [153]"BY THE RETURN KEY.  TO SEE THE NEXT"
10320 [153]"39 DAY BLOCK, PRESS THE SPACE KEY"
10330 [153]"";[163]5);"(PRESS ANY KEY TO CONTINUE)";
10340 [161] A$:[139] A$[178]"" [167] 10340
10345 [129]ZZ[178]1[164]150:[161]A$:[130]
10350 [137] 200
50000 [131] 0,31,59,90,120,151,181,212,243,273,304,334,365
50010 [131] JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
63000 WW$[178]"":[143] GENERAL INPUT 1.3
63020 [153]"SPC(CMD";:[129]VV[178]1[164]50:[161]QQ$:[139]QQ$[179][177]""[167]VV[178]51:[137]63100
63040 [130]:[153]" CMD";:[129]VV[178]1[164]50:[161]QQ$:[139]QQ$[179][177]""[167]VV[178]51:[137]63100
63050 [130]:[137]63020
63100 [130]:[139][198](QQ$)[178]13[167][153]" CMD";:[142]
63110 [139][198](QQ$)[178]20[167]63200
63120 [139][198](QQ$)[178]34[167]QQ$[178]"'"
63130 [139]QQ$[179]" "[176]"Z"[179]QQ$[167]63020
63140 WW$[178]WW$[170]QQ$:[139][195](WW$)[177]254[167]WW$[178]""
63160 [153]" CMD"QQ$;:[137]63020
63200 [139][195](WW$)[179]1[167]63000
63210 [139][195](WW$)[178]1[167][153]QQ$;:[137]63000
63220 WW$[178][200](WW$,[195](WW$)[171]1):[153]QQ$;:[137]63020
63221 [153]"LOAD"
63998 [153]"LOAD"
63999 [128]:[143]"END OF BIORHYTHM PROPERTY OF COMMODORE